define one1:integer;
define I:byte;
define J:byte;
define W:word[3];
define K:word[3];
define C:word[3];

begin
 W[1]=2;
 W[2]=2;
 W[3]=2;
 K[1]=1;
 K[2]=1;
 K[3]=1;

 I=0;
 J=0;
 While I<3 do
  begin
   I=I+1;
   C[I]=W[I];
   PrintW(C[I]);
   While J<=3 do
    begin
     j=j+1;
     PrintW(J);
    end;
  end;;
end.

